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OOi'vOV' 



000000 ' 



Copyright (c) 1977,1978.1979,1980. 
SS<H Computer 3 y e- i v m i ;• Inc. 
Na fr h V i 11 e , I enn e i- ;• e i- 

. CSECT 30RT0 
POBASE = 

. ENABL LC 

. SBTTL DATA AREAS 

ROOT MODULE OF RT ll/TSX SORT PROGRAM. 
WRITTEN BY PHIL SMERROD. 

LINK COMMAND TO FORM OVERLAYED VERSION OF RTSORT: 



. R LINK 

^RTS0RT=S0RT0/C 
«SORTI/0: 1/C 
»SORTl/0: 1/C 
»S0RT2/0: 1 



Modified in Feburary, 1980 by K. C. Lidster of DISC to also executfc 
under the RTll run-time for the RSTS operating system. This mainiy 
involved the handling of the extra file parameters pertaining to 
RSTS (PPN, clustersize, etc. ). 

##-fS#########################«#########4i###################tt#«#«##=JI## 



QL OB AL DEF I N n I ONO 

. GLOBL OBLK, OLFN, MODE, TSXFL 

. GLOBL TDPNEM, NUMKY2, RECLEN, ISMARS 

. GLOBL SKPCNT, MXRECl, MXREC2 

. GLOBL EOFCHR, EOFCOL 

. GLOBL 1 NFLEN, KYUCA, EOFBUF 

. GLOBL BLKFC, OWCNT, OBUFSZ, START 1 

. GLOBL STACK, P 1 TERM, P2TERM, KTYPE 

. GLOBL KAD. KSTRT, KEEN, OBUFl , 0BUF2 

. GLOBL NX TELK, OBFEND, ORPOS, FLBLK 

. GLOBL ITYPE, OTYPE, F*INPL 

. GLOBL RT*CBl , RT*FTN, RT*DBL, RT*TXT, RT*X 

. GLOBL RT*OS, RT*OR, RT*OX, RT*F1 1 

. GLOBL RTf RA, RT'fRB, CURSAV, ENDSAV, SAVSPC, SKPVAL 

. GLOBL RT*VLN, RT*CR, MULTPY, DIVIDE, SRTCNT, TMPCNT 

. GLOBL C I GRT I , C I SRT 1 , C I SRT2 

. GLOBL NUMBUF, NUMCOL, NUMLEN 

. GLOBL IFPNT, CUROFL, LOWMEM, RWDLEN 

. GLOBL RCNTl , RCNT2, FLUSH, OUTWRT, MXFILS 



SORTO RIS 


nryf 


— ROOT 


DATA area;; 






58 






59 






60 






61 






62 






63 






64 






65 






66 






67 






68 






69 






70 






71 






72 






73 






74 






75 






76 




000310 


77 




000620 


7B 




000017 


79 




0000 1^ 


BO 




000007 


81 






8? 






8v3 






84 






85 000 


'.>O0 




86 




000042 


87 000 


D43 


003336 ' 


88 000 


'jOO 




89 






90 






91 






9;;' 






93 






94 




000001 


95 




OOOOOP 


96 




000004 


97 




000010 


98 




000020 


99 






1 00 






101 






1 OP 




000001 


1 03 




000002 


104 




000004 


105 




000010 


106 




000020 


107 




000040 


1 08 




000100 


109 




000200 


1 1 




000400 


HI 




00 1 000 


lit' 




002000 


113 




040000 


1 i 4 




100000 
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. GLOBL HXF1L2, COMPAR, ABORT> FILFL 

. GLOBL FILNB, FILRN, FILST> MSGNAM 

. GLOBL RECl , RDC:2, KYDIS 

. GLOBL T 1 SJ Z, T2SI Z , DSKCVT 

. GLOBL vJSW, OVLBIT, POTOP, POBASE 

. GLOBL UEDF, V3FLAG, ANDFLG, ORFl G 

. GLOBL KYCOMP, INRLEN, SELADR, FLDMAP, MAPEND 

. GLOBL F«BIN. FSCR, F«PAUS, F*VLEN 

. GLOBL KYBIN, KYLSS. KYTSS, KYDATE, SFLAGS 

. GLOBL SETNRT, RSTS, CHNPPN, FILPPN, SPCFLG 

GLOBAL REFERENCES 



. GLOBL 
. GLOBL 

PARAMETERS 



SORfPl, S0RTP2, TERM 
JiRI 1NI> PITOP, P2T0P 



MXFILS 


= 




200. 


MXFIL2 


=r 




2«MXFILS 


MXKEYS 


= 




15. 


LF 


= 




12 


BELL 


=: 




07 


. IF DF 


RTll 










SET 


INITIAL, STACK 
. ASFCT 

42 
. W8RD STACK 
. CSECT SORTO 



MAX # OF TEMP FILES 



MAX # 
ASCII 
ASCII 



OF SORT KEYS 
LINE FEED 
BELL 



PER RECORD 



. ENDC 



GeTteral control flags stored in SFLAGS; 



F*BIN 
F*VLEN = 
F*CR 

F*PAUS = 
F*1NPL = 



1 

2 

4 

10 

20 



;F?ecord& contain binary data 

; Records are variable length 

; Insert CR-LF" at end of output records 

i Pause on completion of reading input filt^ 

i Do an inplace sort 



File type flags stored in ITYPE ?< OTYPE. 



RT*CBL 

RT*DBL 

RT*FTN 

RT*F11 

RT*TXT 

RT'SX 

RT-MS 

RTHOR 

RTIiOX 

RT^SRA 

RT^RB 

RT*CR 

RT*VLN 



1 

n 

4 

10 

20 

40 

100 

20() 

400 

1 000 

2000 

40000 

1 00000 



COBOL file 

DIBOL file 

FORTRAN file 

FILES-11 file 

TEXT file 

Genei^al fixed length records 

Sequential organization 

Relative organization 

Indexed organisation 

Ascii recording mode 

Binary recording mode 

Carriage-return is record terminator 

Blank strip the records 



SORTO 


RTSHRT 


-•" ROOT 


MDBliLE 


DATA ARf 


tAa 






1 1 b 








116 








117 








1 1 S 


00(000 






119 


OOC'620 






120 


001440 






121 








122 








1 23 








124 


0C'2-?60 






125 


002516 






126 


002354 






1 27 


oor-4 1 2 






123 








129 








130 








131 


0024 bO 


000000 




132 


002452 


000000 




133 


002454 


000000 




134 


002456 


000000 




135 


002460 


000000 




136 








137 








138 








139 








140 


002^62 


000000 




141 


002464 


000000 




1 42 


002466 


000000 




143 


002470 






144 


002476 


000000 




145 


002500 


000000 




146 


002502 


000000 




147 


002504 


000000 




148 


002506 


000000 




149 


002510 


000000 




150 


002512 


000000 




151 


002514 


000000 




152 


002516 


000000 




153 


002520 


oooooo 




154 


002 522 


000000 




155 


0O2524 


oooooo 




156 


002526 


oooooo 




1 57 


002530 


oooooo 




158 


002532 


oooooo 


000000 


159 


002536 


oooooo 


oooooo 


160 


002542 






161 


002566 


oooooo 




162 


002570 


oooooo 




163 


002572 


oooooo 




164 


002574 


oooooo 




165 


002576 


oooooo 




166 


002600 


oooooo 




167 


002602 


oooooo 




168 


002604 


oooooo 




169 


002606 


oooooo 




170 


002610 


oooooo 




171 


0^2612 


oooooo 
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; FILE 


MANAGEMFW'f TAB! FS 


Fll ST: 


. BLKW 


MXFILS 


FILNB: 


. BLKW 


MXFILS 


FIIRN: 


. BLKW 


MXFILS 


- SORT 


KEY DESCRIPTOR TABLES 


KTYPE: 


. BLKW 


MXKEYS 


KAD: 


. BLKW 


MXKEYS 


KSTRT; 


. BLKW 


MXKEYS 


KLEN: 


. BLKW 


MXKEYS 


} DATA 


AREAS 




SFIAGS: 


. WORD 





I TYPE: 


. WORD 





OTYPE: 


. WORD 





NUMCOL: 


. WORD 





NUMLEN: 


. WORD 






FILt- STARTING BLOCK NUMBER 

« 01" BLOCKS IN FILE 

« OF SORTED RUNS IN FILE 



KEY TYPE 

0==>ASCENDING; 1=>DESCENDING 

KEY STARTING COLUMN 

KEY LENGTH (COLUMNS) 



CUROFL 


. WORD 





TOPMEM 


. WORD 





COMPAR 


. WORD 





MSGNAM 


. BLKW 


3 


NUMKY2 


. WORD 





RECLEN 


. WORD 





ISMARS 


. WORD 





RWDLEN 


. WORD 





RCNTl : 


. WORD 





RCNT2: 


. WORD 





LOWMEM 


. WORD 





SKPCNT 


. WORD 





SKPVAL 


. WORD 





MXRECl 


. WORD 





MXREC2 


. WORD 





TISIZ: 


. WORD 





T2SIZ: 


. WORD 





INFLEN 


. WORD 





SRTCNT 


. WORD 


0, 


TMPCNT 


. WORD 


0, 


AREA: 


. BLKW 


10. 


OWCNT: 


. WORD 





0BUFS7 


. WORD 





RECl: 


. WORD 





REC2: 


. WORD 





OBUFl : 


. WORD 





0BUF2: 


. WORD 





NXTBLK 


. WORD 





FILFL: 


. WORD 





OBFEND 


. WORD 





ORPOS: 


. WORD 





FLBLK: 


, WORD 






SORTO 



R rBf'R I 



DATA ARE-AH 



f 



1 72 
173 
174 
175 
176 
177 
178 
179 
ISO 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 



200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
21 1 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 



002^^14 
002^; i 6 
002620 
002622 
002624 
002626 
002630 
002632 
002634 
002636 
002640 
002642 



002736 
003;:'36 



002536 
00333? 
003340 
00334 1 
005G42 
003043 
003344 
0<'3345 
005350 
003353 



0034 34 
00344 1 
003446 
003453 
003460 
003465 
003472 
003177 
003504 
0035J J 
0^35 J 6 
003523 
003530 
003535 
003542 
003547 



ROOT MnDULE 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



MACRO 



000 
000 
000 

ooo 

000 
000 
000 
061 
064 
067 



003355 PAUSMS: 



003354 ' 
060 
065 
000 
000 
064 
071 
313 
000 
000 
000 
000 
000 
000 
317 
312 
060 



V05. 01b 1 


Ion day 06 


•Mair-S5 


BLKFC: 


. WORD 





IFPWT: 


. WORD 





EOFBUF 


. WORD 





FLDMAP 


. WORD 





MAPEND 


. WORD 





SELADR 


. WORD 





INRLEN 


. WORD 





EOFCOL 


. WORD 





CHRCNf 


. WORD 





CURSAV 


. WORD 





ENDSAV 


. WORD 





SAVSPC 


. BLKW 


30. 



17:48 Pam- 



i DEFINE STACK SPACE 

. BLKW 12B. 
STACK: 

i BYTE DATA 



062 

065 

070 

. Ni 1ST 

. ASCIZ 



063 
066 

BIN 
/SORT 



EOFCHR: 

UEOF : 

ANDFLG: 

ORFLG: 

SCI: 

SC2: 

SPCFLG: 

NUMBUF; 



. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. BYTE 
. ASC 1 1 



O 


O 


O 
/I 2345678/ 



input complete. Mount SORT 
. LIST BIN 
. EVEN 

i 

i Table to convert non- 
i signed numeric displa 
; sign indication. 



output disk./<BELL> 



separate sign characters for COBOL and DIBOL 
ij values into the natural digit and a 



061 
066 
000 
000 
065 
317 
312 
000 
000 
000 
000 
000 
000 
316 
311 
000 





. NLIST 


HEX 








SINCHR = 


. -60 




.: First c 


har i 


062 


. BYTE 


-f-<'0.>.. 


+< ' 1 >> 


+<'2>, t<'3:>, 


<-<'4> 


067 


. BYTE 


+<'5>, 


H-<'6>, 


+<'7>, +<'8>, 


+<'9> 


000 


. BYTE 


0, 


0, 


0, 0, 





061 


. BYTE 


0, 


0, 


+<'1>, +<'2>, 


+<'3> 


066 


. BYTE 


+<'4>, 


+< ' 5>> 


*<'6:>. +<'7>, 


+<'8> 


316 


. BYTE 


+<'9:>, 


~<'1>. 


~<'2>, -<'3>. 


-<'4> 


311 


. BYTE 


-< ' 5>, 


-< '6>> 


-<'7>, -•< 'S>, 


-<'9> 


000 


. BYTE 


0, 


0> 


0, 0, 





000 


. BYTE 


0, 


0, 


0, 0. 





000 


. BYTE 


0, 


0, 


0, 0, 





000 


. BYTE 


0, 


0, 


0, 0, 





000 


. BYTE 


0, 


0, 


0, 0, 





000 


. BYTE 


0.. 


0, 


0.. 0, 


-<'0> 


315 


. BYTE 


-<'!>, 


-< '2>. 


~<'3>, ■<'4>. 


■ ■■< ' 5:> 


310 


. BYTE 


-<'6>, 


-<'7:>, 


-<'S>, -<'9>, 





320 


. BYTE 


-(■< 'o:>> 


0, 


--<'0> 





le is 


"0" < octal 


060 


- 


064 


065 


_ 


071 


072 


- 


076 


077 


- 


103 


104 


- 


110 


111 


- 


115 


116 


- 


122 


123 


- 


127 


130 


- 


134 


135 


— 


141 


142 


- 


146 


147 


- 


153 


154 


_ 


160 


161 


- 


165 


166 


- 


172 


173 


- 


175 



60). 



c 
f 

4 
< 

f 
i 
i 
t 
€ 

i 
€ 

t 
€ 

i 
I 
< 
I 



SORTO 


RTHDkr 


- ROOT { 


10DULE 


DATA AREA3 






227 








223 








227 








230 








23 J 








232 








233 








234 


003S52 






235 








23v'j 








237 








23B 








239 








240 


004264 






24 J 


001274 






242 


00 '1304 






243 


0043 i 4 






244 








24^) 


004324 






246 


004336 






247 


004 5 50 






243 


004362 






249 


003 374 






250 


004 4 06 






251 


004420 






252 


004432 






253 


004444 






254 








255 








256 


004456 


004324 ' 


004336 ' 




004464 


004362' 


004374' 


257 


004470 


004406 ' 


004420 ' 




004476 


004444 ' 


000000 


258 








259 








260 








261 








262 








263 








264 








265 








266 








267 








260 








269 








270 








271 








272 


004 502 


000207 




273 








274 








275 








276 


004504 


000207 




277 








27 S 








279 








280 


004506 


000207 
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EVtN 

LIST BEX 



The foliouinp macro call gerierateB hidden system de?pendent data 



*sy stem 



Define file descriptors and file- specification blocks 

ifile descriptor blocks 



fdJ: : 


«FD]3 


f d2: : 


*FD]3 


f d3: ; 


*FDB 


fd4: : 


*FDB 


spc 1 : 


$SFC 


apt 2: 


*SPC 


spc3: 


*SPC 


spc4: 


*SPC 


s p c 5 : 


*SPC 


5pc6: 


*SPC 


spc7: 


*SPC 


spcS: 


*SPC 


spc9: 


*SPC 



ifile specification blocks (system depend£?nt names) 



i table of pointers to SPC's 



004350' files: 
004432 ' 



. word spc 1, 5pc2/ 
. word spc6j spc 7* 



5pc3.. 
spcSj 



spc4j 
spc9. 



spc 5 




MACRO TO ABORT S0R1 

. MACRO XXX COD 



XXX 'COD = 

MOV 
CALL 
. ENDM 



#'COD'. ,R0 

ABORT 

XXX 



Debugging breakpoint checkins. 

Check in from GDRTl. 
CISRTI: RETURN 

Check in from C>0R1 1. 
CISRTI: RETURN 

Checkin from G0RT2. 
CISRT2: RETURN 



SORTO R IL.ORI 
MAIN SORT FLnW 



] 
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SBTTL- MAIN SORT FLOW 



4 004510 
5 

6 
7 

5 004510 
9 

10 

11 

12 004 514 

13 

14 

15 

16 004520 

17 004 5?2 
18 

19 004570 

20 004574 

21 004576 

22 004644 

23 004650 

24 004654 

25 004660 
26 

27 004662 

28 004666 
29 

30 
31 

32 005004 

33 005012 

34 005014 

35 005016 

36 005024 

37 005030 

38 005034 

39 005036 
40 

41 
42 

43 005040 

44 005046 
45 

46 005050 

47 005136 
48 

49 

50 0O5i42 

51 

52 

53 

54 

55 005260 

56 00 5266 
57 



000167 OOOOOOG 



000167 OOOOOOG 



005767 
001503 

016702 
004767 
020427 
001451 



005067 175640 



032767 
001412 



1 20027 
001373 



000012 



032767 
001435 



000167 000510 



032767 
001033 



175732 



175732 
002022 
004314' 



START: 

ENTER SORTI TO DO INITIALIZATION 

JMP SRTINI i ENTER INITIALIZATION ROUTINE 

SORTI JUMPS TO START 1 WHEN IT IS READY TO START A SORT 

STARTl: JMP SORTPl i BEGIN SORT PHASE 1 

TERMINATION OF PHASE 1 

PI TERM: *LOCK ; LOCK USR MODULE IN MEMORY FOR SPEED 

*KEEP #FD2 i CLOSE TEMP FILE 1 CHANNEL 

; CLOSE TEMP FILE # 2 AND DELETE IT IF IT WAS NOT USED. 

TST T2SIZ 'DID WE OPEN TEMP FILE 2? 

BEQ 7* ; BR IF NOT 

*KEEP «FD4 ; CLOSE TEMP FILE 2 CHANNEL 

MOV NXTBLK. R2 i GET LAST CLUSTER # 

CALL DSKCVT i GET FILE # FOR IT 

CMP R4, #FD4 > IS TEMP FILE 2 NEEDED? 

BEQ 7* i BR IF YES 

i TEMP FILE 2 IS NOT NEEDED SO DELETE IT 

CLR T2SIZ i SAY FILE NOT USED 

*ERASE #FD4, #SPC3 

SEE IF WE SHOULD PAUSE WHILE OUTPUT DISK IS MOUNTED. 



000010 175436 7$: 



5*: 



BIT #F*PAUS, SFLAGS i IS PAUSE WANTED? 

BEQ 1* > BR IF NOT 

*UNLOCK i UNLOCK USR MODULE DURING PAUSE 

SPRINT #PAUSMS i PRINT PAUSE MESSAGE 

. TTYIN iWAIT FOR USER TO ENTER CR/LF 

CMPB RO, #LF 

BNE 5* ;LOOP TILL LF ENTERED 

*LOCK i RELOCK USR MODULE 

SEE IF AN IN -PLACE SORT IS WANTED. 



000020 175402 1* 



BIT #F*INPL, SFLAGS ; WANT IN -PLACE SORT? 

BEQ 4^ ; BR IF NOT 

IN-PLACE SORT IS WANTED. DO LOOKUP ON INPUT FILE FOR OUTPUT. 

*REOPEN #FD3. #SPC4 i DO REOPEN TO ASSOCIATE OUTPUT WITH INPUT FILE 

JMP OPNrMP 
THIS IS NOT AN IN-PLACE SORT. 
IF OUTPUT FILE EXISTS NOW DELETE IT. 
4«: «ERASE ttFD3, #SPC1 

TRY TO OPEN NEW OUTPUT FILE 

Determine houi many blocks to request for output file. 

100000 175166 TONOF: BIT #RT«VLN, OTYPE ; ARE OUTPUT RECORDS BLANK STRIPPED? 

BNE 41i ;BR IF YES 

j Fixed length output records. 



SORTO 
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MAIN SORT FlS:yi 



50 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



001-270 
00r>274 
005300 
005304 
005012 
005314 
005322 
005324 
005332 
005334 
005340 
005344 
005350 
005354 



005356 
005362 
005366 
005374 
005376 
00540^1 
005406 
005414 
005416 
005-122 
005424 
005430 
005434 
005436 
005442 
005446 
005452 
005456 
005460 
005462 

005466 
005622 

005624 
005630 
005632 
005642 

005652 
005776 
006000 
006010 
006014 
00i'-016 
006.142 
006144 



016704 
016705 
016700 
032767 
001010 
032767 
001406 
032767 
001402 
062700 
004767 
012700 
004767 
000436 



016704 
016705 
032767 
001010 
032767 
001416 
032767 
001412 
066704 
005505 
066705 
066704 
005505 
066705 
012700 
004767 
062704 
005505 
001402 
012704 



103013 

120027 
001004 



103004 

005767 
001453 

103716 



175236 
175234 
175174 
040000 



000001 



174512 



175142 



000001 175132 

002000 175122 

000002 
002112 
001000 
002154 



175154 
175152 
040000 175060 

000001 175050 

002000 175040 

175110 

175104 
175076 

175072 
001000 
002056 
000001 

1 77777 



i Multiply rec 

MOV 

MOV 

MOV 

BIT 

BNE 

BIT 

BEQ 

BIT 

BEQ 
5*: ADD 
6*: CALL 

MOV 

CALL 

BR 
i Veriable len 
i Use size of 
4*: MOV 

MOV 

BIT 

BNE 

BIT 

BEQ 

BIT 

BEQ 
a^: ADD 

ADC 

ADD 

ADD 

ADC 

ADD 
9«: MOV 

CALL 
7*: ADD 

ADC 

BEQ 

MOV 
> Try to open 
10*: *NEW 

BCC 
; CANNOT OPEN 

CMPB 

BNE 

XXX 

XXX 
OUTPUT I 

«OLD 

BCC 



number of 



GET 
GET 
ARE 
BR 



records to determine needed siie. 
# OF RECORDS PASSED TO WORD <LOW-ORX>ER) 
HIGH-ORDER COUNT 
OUTPUT RECORD LENGTH 

WE TO ADD CR-LF TO OUTPUT RECORDS? 
IF YES 



ord size by 

SRTCNT, R4 

SRTCNT+2, R5 

RECLEN, RO 

#RT*CR, OTYPE 

5* 

#RT$CBL. OTYPE 

6* 

#RT*RB, OTYPE 

6* 

#2, RO 

MULTPY 

#512. , RO 

DIVIDE- 

7*^ 
gth <blank stripped) output records, 
temp file to detmine space needed for output file. 



IS THIS A COBOL FILE? 

BR IF NOT 

COBOL BINARY FILE? 

BR IF NOT 

WE NEED 2 MORE CHARS IN RECORD SIZE 

MULTIPLY # RECORDS TIMES RECORD SIZE 

NOW DIVIDE BY # CHARS PER DISK BLOCK 



2$: 

; THE 

OPNTMP 



9$: 
8*: 



6«: 



0O6 1 4 6 000 1 67 OOOOOOG 



XXX 

TST 

BEQ 

*OLD 

BCS 

^UNLOCK 
BEGIN SECOND 
(MERGE TEMP 

JMP 



TMPC NT, R4 

TMPCNT+2, R5 

#RT*CR, OTYPE 

8* 

#RT*CBL, OTYPE 

9* 

#RTf RB, OTYPE 

9$ 

SRTCNT, R4 

R5 

SRTCNT+2, R5 

5RTCNT, R4 

R5 

SRTCNT+2, R5 

#512. , RO 

DIVIDE 

#1, R4 

R5 

10$ 

#-1, R4 
the output file 

#FD3, #SPC1- R4 

OPNTMP 
OUTPUT FILE 

R0> #1 

2* 

10 

11 
ILE IS OPEN - 

#FD2, #SPC2 

3* 

23 



GET # DATA BYTES WRITTEN TO TEMP FILE 

GET HIGH-ORDER VALUE 

ARE WE TO ADD CR-LF TO OUTPUT RECORDS? 

BR IF YES 

IS THIS A COBOL FILE? 

BR IF NOT 

IS THIS A COBOL BINARY FILE? 

BR IF NOT 

ADD # BYTES NEEDED FOR EXTRA CONTROL CHAR 

PROROGATE CARRY 

ADD HIGH-ORDER 

ADD FOR 2ND CONTROL CHARACTER 



« BYTES PER DISK BLOCK 

CALC # BLOCKS NEEDED 

GET 1 EXTRA 

PROROGATE CARRY 

BR IF AMT NEEDED FITS IN 16 BITS 

ASK FOR LARGEST AMT AVAILABLE 



; BR IF NO ERROR 



NOT ENOUGH 
BR IF SOME 
NOT ENOUGH 
SOME OTHER 



SPACE? 
OTHER ERROR 
SPACE 
OPEN ERROR 



;iz 



6* 

#FD4> #SPC3 

9* 

PHASE OF SORT. 
FILE SORTED STRINGS) 
E^0RTP2 



REOPEN TEMP FILE FOR INPUT. 



BR IF NO LOOKUP ERROR 
CAN'T REOPEN TEMP FILE 
IS TEMP FILE 2 NEEDED? 
BR IF NOT 



UNLOCK USR MODULE 



< 
I 
I 
I 

i 

4 
€ 
€ 

< 
I 
€ 

i 
i 
i 
4 
« 
I 



SORTO RfSPRT 


— ROOT 


MAIN SORT FLny 




115 




116 




117 




118 00615? 


005000 


119 




120 




121 




122 006154 


010046 
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i 

i TERMINATION OF PHAHE 2 

i 

P2TERM: CLR RO ; SAY NO ERROR 

i THE XXX MACRO CAUSES A JUMP TO ABORT WITH THE ERROR CODE IN RO. 

i 

ABORT: 



123 006156 

124 006160 012600 

125 006162 000167 0000000 



MOV RO, -(SP) 

*UNLOCK 

MOV (SP)+, RO 

JMP TERM 



i SAVE ERROR CODE 

; MAKE SURE USR IS NOT LOCKED 

i REENTER SORT I 



I 



SORTO RTSO^<T 
MAIN SORT nC'i'i 

1 

P. 
3 
4 
5 



9 
10 
11 
iP 
13 
14 
15 
16 
17 
18 
19 
20 
21 



ROOT MGDUl.F MACRO VOS. OJb Monday OfS-Mair-85 17:48 Pa(je 



23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 



0O6166 
006172 
006174 
006176 
006200 
006202 
006206 
006210 
006212 
006220 
006222 
006224 
006226 
006230 
006232 
006234 
006236 
006240 



105767 
001420 
010046 
010146 
012500 
013701 
012021 
001003 
017561 
012021 
012021 
012021 
012601 
012600 
000401 
005725 
005725 
000205 



IP DF RTll 

. SBTTL 



F?S"JB or i tinted routines 



SETNRT 



175464 



000054 



000000 177776 



Set the RSTS oriented non-RTll file parameters for the 
next file operation. These items btb the PPN* protection 
code, mode* and clustersize and are stored in a 4-uiord 
block whose address immediately follows the vlSR R5# SETNRT 
call. These items uiere saved off from a previous . CSISPC 
monitor decode and will be loaded in the "one shots" of 
the RTll runtime's Read/Write stacfc (which is pointed at 
by the low core RMON word). 

; We running under RSTS? 

> No. just ignore 

/Else get some work registers 

; Point to the saved items 
iPoint to the R/W stack 
i Load PPN 



Protection Code 
Mode 

Cluster Size 
Restore the work registers 



SE1NRT: 


TSTB 


RSTS 




BEQ 


10* 




MOV 


RO, -(GP> 




MOV 


Rl, -<SP) 




MOV 


<R5)+, RO 




MOV 


e#RMQN, Rl 




MOV 


<R0)+.. (Rl )<- 




BNE 


5* 




MOV 


©<R5), -2<R1) 


5*: 


MOV 


<R0)+, (Rl ) + 




MOV 


(R0)+, (Rl )*- 




MOV 


(R0)+. (Rl ) 1- 




MOV 


(SP>+, Rl 




MOV 


( SP > +, RO 




BR 


15* 


10*: 


TST 


(R5) + 


15*: 


TST 


(R5)-f- 




RTS 


R5 



ENDC 



iSkip the save area pointer 



€ 
I 

< 

i 
i 
I 
c 

I 

< 

i 

4 
< 
i 
i 
€ 

I 

I 



SORTO RTSDRf 
I/O ROUT IN? 
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1 



3 








4 








5 


006242 


010146 




6 


006244 


010246 




7 


006246 


010346 




S 


006250 


016701 


174322 


9 


006254 


016702 


174332 


10 


006260 


050211 




11 


006262 


016701 


1 74 1 74 


12 


006266 


016703 


174312 


13 


006272 


010267 


1 74306 


14 


006276 


005261 


000620 ' 


15 
16 
17 


0O6302 


004767 


000050 


006306 


016701 


174266 


18 


006312 


016767 


174260 174260 


19 


006320 


010167 


174252 


20 


006324 


010167 


174256 


21 


006330 


066767 


174234 174250 


22 








23 


006336 


005021 




24 


006340 


005021 




25 


006342 


010 J 67 


174242 


26 


006246 


012603 




27 


006350 


012602 




28 


006352 


012601 




29 


006354 


000207 




3<> 








31 








32 








33 








34 








35 








36 








37 








38 








39 


006356 


010346 




40 


006360 


010446 




41 


006362 


004767 


000310 


42 


006366 






43 


006500 


103004 




44 


006502 






45 


006512 






46 


006666 


103705 




47 


006670 


012604 




4B 


006672 


012603 




49 


006674 


000207 





. SBTTL 1/0 ROUTINES 
FLUSH: SUBROUTINE TO OUTPUT THE CURRENT 
OUTPUT BUFFER AND SWITCH TO A NEW ONE. 



FLUSfL 



1$: 



MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
MOV 
INC 
CALL 



R 1 , - < SP ) 
R2> -• < SP ) 
R3, - ( SP ) 
0BUF1,R1 
FLBLK, R2 
R2, (Rl > 
CUROFL, Rl 
FILFL, R3 
R2, FILFL 
FILNBfRl) 
OUTWRT 



SAVE SOME REGISTERS 



GET ADDRESS OF BUFFER 

GET ADR OF NXT DISK BLK 

SET FLINK IN BUFFER 

GET CURRENT FILE # 

GET OLD FLINK 

SAVE NEW FLINK 

COUNT # OF BLOCKS IN FILE 

START WRITE TO FILE 



SWITCH BUFFERS 



MOV 
MOV 
MOV 
MOV 
ADD 



0BUF2, RJ 
0BUF1,0BUF2 
R1,0BUF1 
R1,0BFEND 
OBUFSZ, OBFEND 



INITIALIZE NEW BUFFER 



CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
RETURN 



( R 1 ) ♦• 
(Rl) + 
Rl, ORPOS 
(SP>+, R3 
(SP)>-, R2 
(SP)+, Rl 



i SET ADDR OF END OF BUFFER 



CLEAR FLINK 

CLEAR # OF RECS IN BUFFER 
POS WHERE NXT REC GOES 
RESTORE REGISTERS 



OUTWRT: ROUTINE TO WRITE THE CURRENT OUT BUFFER 
TO THE DISK FILE. WHEN CALLED R3 MUST CONTAIN 
THE DISK GRANULE # WHERE THE BUFFER IS TO BE 
WR I TTEN. 

THE BUFFER IS WRITTEN FROM THE POSITION POINTED 
TO BY OBUFl. 



OUTWRT: 


MOV 


R3, -<SP> 




MOV 


R4, -<SP) 




CALL 


DSKCVT 




«WAIT 


R4 




BCC 


1$ 


9$: 


XXX 


15 


1«: 


*WRITE 


R4, OBUFl 




BCS 


9* 




MOV 


< SP ) +, R4 




MOV 


<SP)+, R3 




RETURN 





CONVERT CLUSTER # TO FILE&BLOCK 4\ 
WAIT FOR PREVIOUS WRITE TO FINISH 
BR IF NO WRITE ERROR 
TEMP FILE I/O ERROR 



SOR- 


TO 


R TGOUl 


„.,.. ROOT 


MODULE 


I/O 


ROUT I;*-- 
1 








X 

2 
3 










4 










S 










6 










7 










8 










9 










10 


006676 


010346 






11 


006700 


016704 


173710 




12 


006704 


000401 






13 


006706 


061603 






14 


006710 


005304 






15 


0067' 1 2 


001375 






16 


006714 


005726 






17 


0067 1 6 


012704 


004274 




10 


006722 


020367 


173576 




19 


006726 


101411 






20 


006730 


166703 


173570 




21 


006734 


066703 


173654 




22 


006740 


020367 


1 73562 




23 


006744 


101005 






24 


006746 


012704 


004314 




25 


006752 


166703 


173636 




26 


006756 


000207 






27 


006760 
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DSKCVT IS CALLED TO CONVERT A TEMP FILE CLUSTER NUMBER 

TO A BLOCK AND FILE NUMBER. 

WHEN CALLED, R3 MUST CONTAIN THE CLUSTER NUMBER. 

ON RETURN, R3 CONTAINS 1 HE FILE BLOCK # AND R4 CONTAINS 

THE CHANNEL NUMBER OF THE TEMP FILE. 

ALL OTHER REOS ARE PRESERVED. 



DSKCVT: 


MOV 


R3, --<SP) 




MOV 


BLKFC, R4 




BR 


1* 


2*; 


ADD 


<SP), R3 


1*. 


DEC 


R4 




BNE 


2* 




TST 


<SP) + 




MOV 


#FD2, R4 




CMP 


R3, T1SI2 




BLOS 


3* 




SUB 


TISIZ, R3 




ADD 


BLKFC, R3 




CMP 


R3, T2SIZ 




BHI 


9* 




MOV 


#FD4, R4 


3*: 


SUB 
RETURN 


BLKFC, R3 


9*: 


XXX 


12 



; PUSH CLUSTER # 

i GET # BLOCKS/CLUSTER 

; CONVERT CLUSTER #70 BLOCK # 



CLEAN OFF STACK 

ASSUME TEMP FILE #1 

IS THIS BLOCK IN FILE 1? 

BR IF YES 

CALC BLOCK # IN FILE 2 

11 MAY NOT BE MULTIPLE OF BLOCKINC? 

WILL IT FIT IN FILE 27' 

BR IF TEMP FILE OVERFLOW 



SET FOR TEMP FILE 2 

1ST CLUSTER IS CALLED # 1 



i OVERFLOW OF TEMP FILE 



SORTO RTSnrM - ROOT 

KEY COMPARE RCUJINI-B 



1 
P. 
3 
4 

6 

7 

B 

9 
10 
11 
12 
lv3 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2J5 
26 
27 
28 
29 
30 
31 
32 
33 

34 007020 

35 007022 

36 007024 

37 007026 

38 007030 

39 0C7G32 

40 007034 

41 007036 

42 007040 

43 007042 
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, SBTTL KEY COMPARE ROUTlNFiS 



006770 
006772 
006774 
006776 
007000 
007002 
007004 
007006 
007010 
0070 1 2 
007014 
007016 



060301 
060302 
006203 
024142 
001404 
000207 
024142 
103473 
101067 
005303 
001373 
000207 



006203 
022122 
001404 
000207 
022122 
103461 
101055 
005303 
001373 
000207 



Tht> folloujing routiner, are called to compare two key fields of various types. 
On entry, the following registers are set up: 

Rl = Addrbfcs of start of key field 1. 

R2 = Addrt-^Es of start of key field 2. 

R3 = Numbe-r- of bytes in the key field. 

On return the condition code must be left set for BGT/BLT/BEQ test. 
RO, Rl, R2 and R3 may be destroyed. 
R4 and R5 must be preserved. 



Signed computational (binary) values stored with least significant word first. 

i POINT PAST MOST SIGNIFICANT WORD 

GET # WORDS TO COMPARE 

COMPARE MOST SIGNIFICANT WORDS (SIGNED) 

BR IF MOST SIGNIFICANT WORDS ARE tQUAL 

MOST SIGNIFICANT WORDS ARE UNEQUAL 

COMPARE LOW ORDER WORDS 

DO THIS AS UNSIGNED COMPARISON 

MORE TO COMPARE? 
BR IF YES 
VALUES ARE EQUAL 

Compare two binary items stored with most significant word first. 

GET # WORDS TO COMPARE 

COMPARE MOST SIGNIFICANT WORDS (SIGNED) 

BR IF THEY MATCH 

MOST SIGNIFICANT WORDS ARE UNEQUAL 

COMPARE LOW ORDER WORDS 

BR IF 1<2 

BR IF 1>2 

MORE TO COMPARE? 

BR IF YES 

VALUES ARE EQUAL 



KYCOMP : 


ADD 


R3, Rl 






ADD 


R3, R2 






ASR 


R3 






CMP 


-(Rl), 


-(R2) 




BEQ 


2* 






RETURN 






5*: 


CMP 


-(Rl), 


- ( R2 ) 




BLO 


SETLT 






BHI 


SETGT 




2*: 


DEC 


R3 






BNE 


5* 






RETURN 







KYBIN: 


ASR 


R3 






CMP 


(Rl)+, 


( R2 ) i- 




BEQ 


2* 






RETURN 






5*: 


CMP 


(Rl )+, 


(R2) t- 




BLO 


SETLT 






BHI 


SETGT 




2*: 


DEC 


R3 






BNE 


5* 






RETURN 







I 

4 
i 
4 
i 
i 
< 
4 
4 
I 
i 
I 
< 

< 
4 
4 
I 

I 
I 



SORTO RTSDRT - ROOT MODULE- 
KEY COMPARE fiCUTINErB 
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i 
I 

€ 

i 



i 
2 








3 








4 


007044 


122127 


000053 


5 


007050 


001407 




6 


007052 


122227 


000053 


7 


007056 


001447 




8 








9 


007060 


010100 




10 


007062 


010201 




11 


007064 


010002 




12 


007066 


000403 




13 








14 


007070 


122227 


000053 


15 


007074 


001035 




16 








17 


00.-076 


005303 




la 


007100 


122122 




19 


007102 


001002 




20 


007104 


005303 




21 


007106 


003374 




22 


007110 


000207 




23 








24 








25 








26 








27 


007112 


005303 




28 


007114 


060301 




29 


0071 16 


060302 




30 


007 1 20 


121127 


000053 


31 


007124 


001407 




32 


007126 


121227 


000053 


33 


007132 


001421 




34 








35 


007134 


010100 




36 


007136 


010201 




37 


007140 


010002 




38 


007142 


000403 




39 








40 


007144 


121227 


000053 


41 


007150 


001007 




42 








43 


007152 


160301 




44 


007154 


160302 




45 


007156 


122122 




46 


007160 


001002 




47 


007162 


005303 




48 


007164 


003374 




49 


007166 


000207 




50 








51 








52 








53 


007 1 70 


005727 


000001 


54 


007 1 74 


000207 




55 








56 








57 









Compare two items with ler3ding sppaiate signs. 



KYi SS: CMPB 
BEQ 
CMPB 
BEQ 
i Both values 
MOV 
MOV 
MOV 
BR 
i First value 
1*: CMPB 

BNE 
; Values have 
2*: DEC 
3*: CMPB 
BNE 
DEC 
BGT 
9*: RETURN 



<R1. >+,#' + 

1* 

(R2)+, #'f- 

SETLT 
are neqative 

Rl, RO' 

R2, Rl 

RO, R2 

2* 
i& positive. 

(R2)+, #' + 

3ETGT 
samp sign so 

R3 

(Rl)+, <R2)^- 

9* 

R3 

3* 



ITEM 1 POSITIVE? 
BR IF YES 
ITEM 2 POSITIVE? 
1 ST<0, 2ND>=0 
so reverse order of comparison. 



i2ND VALUE POSITIVE? 
; 1ST>0, 2ND<0 
compare magnitudes. 

i COUNT DOWN SIGN CHARACTER 

i COMPARE CHARACTER STRINGS 

;BR IF UNEQUAL 

; MORE TO COMPARE? 

i BR IF YES 

i RETURN WITH CC SET 



Compare two values with trailing separate signs. 



KYTSS; 



DEC 

ADD 

ADD 

CMPB 

BEQ 

CMPB 

BEQ 



i DON'T COUNT SIGN CHAR IN COMPARISON LOOP 
i POINT TO SIGN CHARACTER 



1ST VALUE POSITIVE? 
BR IF YES 

2ND VALUE POSITIVE? 
1ST<0, 2ND:>=0 



R3 

R3, Rl 
R3, R2 
( R 1 ) , 4J ' + 
1* 

<R2), #' + 
SETLT 

i Both values are negative so reverse order of comparison. 
MOV R1>R0" 
MOV R2, Rl 
MOV RO, R2 
BR 2* 
i First value is positive. 
1$: CMPB (R2),#'+ ; 2ND VALUE POSITIVE? 

BNE SETGT J 1ST VALUE >=0, 2ND<0 

i Values have same sign. Compare magnitudes. 

i POINT TO 1ST DIGIT OF VALUE 



COMPARE DIGIT STRINGS 

BR IF UNEQUAL 

MORE TO COMPARE? 

BR IF YES 

RETURN WITH CC SEl 



Set condition to cause BGT branch to be taken. 

SETGT: TST #1 i SET CC FOR BGT 

RETURN 

Set condition code to cause BL1 branch to be taken. 



'*: 


SUB 


R3, Rl 




SUB 


R3, R2 


3*: 


CMPB 


<R1 )+, <R2) + 




BNE 


9* 




DEC 


R3 




BGT 


3* 


?«: 


RETURN 
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KEY COMPARE ROUTINEG 

58 007176 005727 177777 SEILT: TST #-i ; SET CC FOR BL.T 

59 007P03 000207 RETURN 



SORTO 


RTSDRT 


-•- ROOT 


MODULE 


HACRO V05. Oib Monday 06"Mat|~S5 17; 48 Pa 


KEY COHPANE R€,l 


TINES 








1 
3 
3 
A 








i Compare two 


values that have 


007204 


005303 




KYDIS: DEC 


R3 


5 


007206 


060301 




ADD 


R3, Rl 


6 


007210 


060302 




ADD 


R3, R2 


7 


007212 


111100 




MOVB 


<R1),R0 


8 


007214 


116000 


003354 ' 


MOVE 


SINCHR(R0),R0 


9 


00/220 


002021 




BGE 


1* 


10 


007222 


005400 




NEC 


RO 


11 


00/224 


110067 


174112 


MOVB 


RO, SCI 


12 








; Fir&t value 


is negative. 


13 


007230 


111200 




MOVB 


<R2),R0 


lA 


007232 


1 1 6000 


003354 ' 


MOVB 


SINCHR(R0)>R0 


15 


007236 


002357 




BGE 


SETLT 


16 


007240 


005400 




NEC 


RO 


17 








; Both values 


are neqative so r 


18 


007242 


1 1 6767 


174074 


174073 MOVB 


3Ci,SC2 


19 


007250 


110067 


174066 


MOVB 


RO, SCI 


20 


007254 


010100 




MOV 


R1,R0 


21 


007256 


010201 




MOV 


R2, Rl 


22 


007260 


010002 




MOV 


RO, R2 


23 


007262 


000410 




BR 


2* 


24 








i F i r E. t va 1 u e 


is positive. 


25 


007264 


1 1 0067 


174052 


1*: MOVB 


RO, SCI 


26 


007270 


1 1 1 200 




MOVB 


(R2),R0 


27 


007272 


116000 


003354 ' 


MOVB 


SINCHR<RO),RO 


23 


00 / 276 


002734 




BLT 


SETGT 


29 


007300 


110067 


174037 


MOVB 


RO, SC2 


30 








i Values have 


same sipn so comp 


31 


007304 


005703 




2*; TST 


R3 


32 


007306 


001406 




BEQ 


4* 


33 


007310 


160301 




SUB 


R3, Rl 


34 


007312 


160302 




SUB 


R3, R2 


35 


007014 


122122 




3*: CMPB 


(Rl)+, (R2)+ 


36 


007316 


001005 




BNE 


9* 


37 


007320 


005303 




DEC 


R3 


38 


007322 


003374 




BGT 


3* 


39 








; Compare siqn 


digits. 


40 


007324 


126767 


174012 


174011 4*: CMPB 


SCi, SC2 


41 


007332 


000207 




9*: RETURN 





9 



i POINT TO SIGN CHARACTERS 

i GET SIGN CHAR FROM 1ST VALUE 

;GET UNSIGNED DIGIT 

iBR IF VALUE POSITIVE 

;MAKE CHAR POSITIVE 

iSIGN DIGIT FROM 1ST VALUE 

i GET SIGN CHAR FROM 2ND VALUE 

i GET UNSIGNED DIGIT 

; 1ST<0, 2ND>=0 

i MAKE CHAR POSITIVE 

everse order of comparison. 

; REVERSE SIGN DIGITS 

; REVERSE NUMBER STRING POINTERS 



J SAVE SIGN DIGIT FROM 1ST VALUE 

; GET SIGN CHAR FROM 2ND VALUE 

i GET UNSIGNED DIGIT 

iBR IF lST>=--0 AND 2ND<0 

i SAVE MAGNITUDE OF SIGN CHAR 2 

are magnitudes. 

J ANY DIGITS OTHER THAN SIGN DIGITS? 

; BR IF NOT 

i POINT TO FRONT OF DIGIT STRINGS 

i COMPARE DIGITS UP TO SIGN CHAR 
;BR IF UNEQUAL 



; COMPARE LAST DIGITS OF VALUES 
i RETURN WITH CC SET 



SORTO RTl-OR? — ROOT MODULE 
KEY COMPARE RGUTINBS 
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1 



5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

lA 

17 

18 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



Compare two dates in the form (mmddyy). 



007334 
007342 
007344 
007352 

007354 
007360 
007362 
007364 
007366 
007370 



007372 
007376 
007400 
007402 
007-106 
007410 
007414 
007416 
007422 
007426 
007430 
007434 
007436 
007442 
007444 
007446 
007452 
007454 



126162 
001012 
1 261 6c 
001006 



010367 
112100 
1 1 2203 
020027 
103405 
020027 
101002 
1 62700 
020327 
103405 
020327 
101002 
162703 
1 20003 
001003 
005367 
001351 
000207 



000004 
000005 



000004 KYDATE: CMPB 

BNE 

000005 CMPB 

BIME 



4 ( R 1 ) , 4 ( R2 ) 

2* 

5<R1), 5(R2> 

2* 



COMPARE 1ST DIGIT OF YEAR 
BR IF UNEQUAL 
COMPARE 2ND DIGIT OF YEAR 
BR IF UNEQUAL 



012703 000004 

122122 

001002 

005303 

003374 

000207 



1 73236 

000141 

000172 

000040 
000141 

000172 

000040 

173162 



Years are qual. Compart? month and day. 



1*: 



?*: 



MOV 

CMPB 

BNE 

DEC 

BGT 

RETURN 



#4, R3 

<R1>+, (R2)+ 

2* 

R3 

1* 



COMPARE 4 DIGITS 

COMPARE MONTH ?< DAY VALUES 

BR IF UNEQUAL 



; RETURN WITH CC SET 



ROUTINE TO COMPARE TWO ASCII STRINGS WHERE LOWER CASE CHARACTERS 
ARE TO BE CONVERTED TO UPPER CASE. 

ON ENTRY, 

Rl = ADDRESS OF STRING 1. 

R2 = ADDRESS OF STRING 2. 

R3 = NUMBER OF CHARACTERS IN EACH STRING. 
RO, R1,R2, R3 AND R5 ARE DESTROYED. 

SAVE CHARACTER COUNT 

GET A CHAR FROM SIRING 1 

GET A CHAR FROM STRING 2 

IS STRING 1 CHAR LOWER CASE? 

BR IF NOT 

LC(Z) 

BR IF NOT LC 

CONVERT CHARACTER TO UPPER CASE 

IS STRING 2 CHAR LOWER CASE? 

BR IF NOT LC 

LC<Z) 

BR IF NOT LC 

CONVERT CHAR TO UPPER CASE 

DO THE COMPARISON 

BR IF FOUND DIFFERENCE 

ANY MORE CHARS TO COMPARE? 

BR IF YES 



KYUCA: 


MOV 


R3, CHRCNT 


3*: 


MOVB 


( R 1 ) +, RO 




MOVE 


<R2)+,R3 




CMP 


RO, #141 




BLO 


1* 




CMP 


RO, #172 




BHI 


1* 




SUB 


#40, RO 


1$: 


CMP 


R3, #141 




BLO 


2* 




CMP 


R3, #172 




BHI 


2* 




SUB 


#40, R3 


2«: 


CMPB 


RO, R3 




BNE 


9* 




DEC 


CHRCNT 




BNE 


3* 


9*: 


RETURN 





SORTO RTSORT — ROOT MODULE 
MULTIPLY ?.- DIVIDE 
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X 
2 






3 






4 






5 






6 

7 






8 


007456 


010046 


9 


007460 


010246 


10 


007462 


010346 


11 


007464 


010402 


12 


007466 


010503 


13 


007470 


005004 


14 


007472 


005005 


15 


007474 


000241 


16 


007476 


006000 


17 


007500 


103003 


18 


007502 


060204 


19 


007504 


005505 


20 


007506 


060305 


21 


007510 


006302 


22 


007512 


006103 


23 


007514 


005700 


24 


007516 


001366 


25 


007520 


012603 


26 


007522 


012602 


27 


007524 


012600 


23 


007526 


000207 



. SBTTL MUi TIPLY & DIVIDE 



Routine to multiply the 32-bit value in R4 (low-order) and R5 (high-order) 

by the 16-bit value in RO. 

On return the 32-bit product i& in R4-R5. 

RO is preserved. 



MULTPY: 


MOV 


RO, 


- ( SP ) 




MOV 


R2, 


- ( SP ) 




MOV 


R3i 


-(SP) 




MOV 


R4, 


R2 




MOV 


R5, 


R3 




CLR 


R4 






CLR 


R5 




1«: 


CLC 








ROR 


RO 






BCC 


2* 






ADD 


R2, 


R4 




ADC 


R5 






ADD 


R3, 


R5 


2*: 


ASL 


R2 






ROL 


R3 






TST 


RO 






BNE 


1* 






MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, RO 




RETURN 







i MOVE VALUE FROM R4-R5 TO R2-R3 



NEED TO ADD THIS TIME? 

BR IF NOT 

ADD LOW-ORDER VALUE 

PROROGATE CARRY 

ADD HIGH-ORDER VALUE 

ROTATE MULTIPLYING VALUE 

NEED TO DO MORE? 
BR IF YES 



SORTO RTSORT — ROOT MODULE 
MULTIPLY 5( DIVIDE 



1 
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3 

4 

5 

6 

7 007530 

S 007533 

9 007534 

10 007536 

11 007542 

12 007544 

13 007546 

14 007550 

15 007552 

16 007554 

17 007556 

18 007560 

19 007562 

20 007564 
007566 
007570 
007572 



!1 



22 
23 
24 

25 



007574 



Routine to divide the 32-bit value 

by the 16--bit quantity in RO. 

The 32-bit quotient is returned in R4-R5 and 

returned in RO. 



in R4 (low-order) and R5 (high-order) 
the remainder is 



010146 
010346 
005001 
012703 
006304 
006105 
006101 
020100 
103402 
160001 
005204 
005303 
100367 
010100 
012603 
012601 
000207 



007644 ' 
004510' 



000037 



DIVIDE: 


MOV 


R 1 , - ( SP ) 




MOV 


R3, -(SP) 




CLR 


Rl 




MOV 


#31. , R3 


1*: 


ASL 


R4 




ROL 


R5 




ROL 


Rl 




CMP 


R1,R0 




BLO 


2* 




SUB 


RO, Rl 




INC 


R4 


2*: 


DEC 


R3 




BPL 


1$ 




MOV 


R1,R0 




MOV 


<SP)+, R3 




MOV 


<SP)+. Rl 




RETURN 




i 

PATCHO: 


. BLKW 


20. 


POTOP 


= 






. END 


START 



INITIALIZE REMAINDER 

SET SHIFT COUNT 

SHIFT BIT OUT OF LOW-ORDER 

SHIFT THROUGH HIGH-ORDER 

AND INTO Rl 

GOT ENOUGH TO SUBTRACT YET? 

BR IF NOT 

SUBTRACT DIVISOR 

INCREMENT QUOTIENT 

COUNT # BITS SHIFTED 

BR IF MORE TO DO 

GET REMAINDER TO RO 



; PATCH AREA. 



t 

€ 

4 
i 
i 
i 

I 

i 

€ 

€ 

i 

i 

i 

i 

I 

( 

i 

% 

I 

I 

I 



SORTO 
Symbol 

ABORT 

ANDFLG 

AREA 

BELL = 

BieEST= 

BLKFC 

BUFSIZ= 

CHNBIT= 

CHNEXT 

CHNO = 

CHNPPN 

CHRCNT 

CINNRT 

CINSPC 

CISRTI 

CISRTl 

CISRT2 

COHPAR 

CSPCOF= 

CTRL2 = 

CUROFL 

CURSAV 

DBLKFC= 

DEFEXT 

DIVIDE 

DSKCVT 

ENDSAV 

EOFBUF 

EOFCHR 

EOFCOL 

ERR 

ERRLOC= 

FDBSIZ= 

FDl 

FD2 

FD3 

FD4 

FILES 

FILFL 

. ABS. 

SORTO 
Errors 



RT5DR1 " 

0061 54 RG 
003340RG 
002542R 
= 000007 
= 177777 

0026 14RG 
= 001000 
= 000400 

004232RG 
= 000000 
003624RG 
002634 R 
003642RG 
003630RG 
004502RG 
004504RG 
004506RG 
002466RG 

- 000015 
= 000376 
= 000032 

002462RG 
002636RG 

- 000G05 
004H6RG 
007530RG 
006676RG 
002640RG 
002620RG 
003336RG 
002632RG 

= 000006 
= 000G52 
= 000004 
004264 RG 
004274RG 
004304RG 
0043 14RG 
0044 S6RG 
002604RG 

000044 

000000 

007644 

d e t e c 1 1 g ; 
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002 
002 
002 



002 



002 

002 
002 
002 
002 
002 
002 
002 
002 



002 
002 

002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 



FILNB 

FILPPN 

FILRN 

FILST 

FLBLK 

FLDMAP 

FLUSH 

FSTIME 

F*BIN = 

F$CR = 

F*INPL= 

FfPAUS= 

F*VLEN= 

GTLN 

HB*ARS= 

HB$DFS= 

HB*DIP= 

HB*DUP= 

HB$RIU= 

HB$RSZ= 

HD*DEV= 

HD**SZ= 

IFPNT 

INFLEN 

INRLEN 

ISMARS 

ITYPE 

JSW 

KAD 

KLEN 

KSTRT 

KTYPE 

KYBIN 

KYCOMP 

KYDATE 

KYDIS 

KYLSS 

KYTSS 

KYUCA 

LF 



G 
G 
G 
G 



000620RG 

003626RG 

001440RG 

OOOOOORG 

0026 12RG 

002622RG 

00624 2RG 

003652RG 

000001 G 

000004 

000020 

000010 

000002 

0036 57RG 

000006 

000002 

000030 

000001 

000032 

000004 

000000 

000004 

0026 16RG 

002530RG 

002630RG 

002502RG 

0024 52RG 

000044 G 

0023 16RG 

0024 12RG 

002354RG 

002260RG 

007020RG 

006770RG 

007334RG 

007204RG 

007044RG 

0071 12RG 

007372RG 

000012 



002 
002 
002 
002 
002 
002 
002 
002 



OOi 



002 
002 
002 
002 
002 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



LOWMEM 

MAP END 

MODE 

MSGNAM 

MULTPY 

MXFILS= 

MXFIL2= 

MXKEYS= 

MXRECl 

MXREC2 

NOERR = 

NUMBUF 

NUMCOL 

NUMKY2 

NUMLEN 

NXTBLK 

OB FEND 

OBUFSZ 

DBUFl 

0BUF2 

OPNTMP 

ORFLG 

ORPOS 

OTYPE 

OUTWRT 

OVLBIT= 

OWCNT 

PATCHO 

PAUSMS 

PFSPC = 

POBASE= 

POTDP = 

PI TERM 

PITOP = 

P2TERM 

P2T0P = 

QBLK 

QLEN = 

RCNTl 



002512RG 

002624RG 

003653RG 

002470RG 

007456RG 

000310 G 

000620 G 

000017 

002520RG 

002522RG 

000001 

003345RG 

0024 56RG 

002476RG 

002460RG 

002602RG 

002606RG 

002570RG 

002576RG 

002600RG 

005652R 

00334 IRG 

00261 ORG 

002454RG 

006356RG 

001000 G 

002566RG 

007574R 

003355R 

000002 

OOOOOORG 

007644RG 

004520RG 

«■***** G 

0061 52RG 

«■«*«»# 

003552RG 
000003 G 
002506RG 



002 
002 
002 
002 
002 



002 

002 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 

002 
002 
002 

002 
002 
002 

002 

002 

002 



RCNT2 

RECLEN 

RECl 

REC2 

RMON 

RSPCS 

RSTEXT 

RSTS 

RSTSCH 

RSTSJB 

RT*CBL^ 

RT*CR 

RT*DBL= 

RT*FTN= 

RT*F11= 

RT*OR = 

RT*OS = 

RT*OX = 

RT$RA ^= 

RT«RB = 

RT*TXT= 

RT*VLN" 

RT*X = 

RTll = 

RWDLEN 

SAVBUF 

SAVSPC 

SCI 

SC2 

SELADR 

SETGT 

SETLT 

SETNRT 

SEVERR= 

SFLAGS 

SINCHR== 

SKPCNT 

SKPVAL 

SORTPi== 



00251 ORG 
002500RG 
002572RG 
002574RG 
000054 
003662RG 
004222RG 
003656RG 
004242RG 
000404 
- 000001 G 
= 040000 G 



000002 G 
000004 G 
000010 G 
000200 G 
000100 G 
000400 G 
001000 G 
002000 G 
000020 G 
100000 G 
000040 G 
000000 
002504RG 
004126RG 
002642RG 
003342R 
003343R 
002626RG 
007170R 
007176R 
0061 66RG 
000010 
0024 50RG 
003354R 
0025 14RG 
0025 16RG 
«■#«■•»•«■* G 



002 
002 
002 
002 

002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 

002 
002 
002 
002 



S0RTP2= 

SPCFLG 

SPCSIZ= 

SPCl 

SPC2 

SPC3 

SPC4 

SPC5 

SPC6 

SPC7 

SPCS 

SPC9 

SRTCNT 

SRTINI= 

STACK 

START 

START 1 

TERM = 

TMPCNT 

TONOF 

TOPMEM 

TSXFL 

TISIZ 

T2SIZ 

UEOF 

USERRB= 

USRLOC= 

VERSNO= 

V3FLAG 

WRDS = 

XBUF 

XEMT 

XXX 10 -- 

XXXll = 

XXX12 = 

XXX15 = 

XXX23 = 

. . . VI --= 

. . . V2 = 



003344RG 

000005 

004324RG 

004336RG 

004350RG 

004362RG 

004374RG 

004406RG 

004420RG 

004432RG 

004444RG 

002532RG 

«•»**** G 

003336RG 

004 51 OR 

00451 4RG 

*<-««•*«■ G 

002536RG 

005260R 

002464RG 

003654RG 

002524RG 

002526RG 

003337RG 

000053 

000046 

000276 

003655RG 

000004 

004000RG 

004250RG 

005632R 

005642R 

006760R 

006502R 

006000R 

000003 

000061 



002 

002 
002 
002 
002 
002 
002 
002 
002 
002 
002 

002 
002 
002 

002 
002 
002 
002 
002 
002 
002 



002 

002 
002 
002 
002 
002 
002 
002 



000 
001 
002 




<RW, I,GBL, ABS, OVR) 
(RW, I,LCL, REL/CON) 
(RW, I,GBL, REL,OVR) 



*«■•»■ Assembler statistics 



Work file reads 
Work filp writes 
Size of worfc file 
Size of coT^e pool 
Operating SMstem 







15944 

18432 

RT-ll 



Words < 63 Pages) 
Words ( 72 Pages) 



Elapsed tifsiD: 00:00:23.48 

, DB4: CBSRTO, l'<A: CBSRTH. CRF=^DK: CBSRTH, CBSRTO/C 



SORTO RTSORI •- ROOT MODULE MACRO V05. 01b Monday 06-May--35 17:48 Page S-1 
Cross Tpferentf tabic (CREF V05. 03) 

...VI 3 17 3-17 3-P'l 3 -SI 3-28 3-28 3-23 3-35 3-46 3-46 3-50 3-50 3-50 3-96 

3 96 3-96 3-104 3-104 3-104 3-109 3-109 3-109 5-42 5-42 5-45 5-45 

. . , V2 ^--V/ 3-17# 3-21 3-21# 3-28 3-28 3~28# 3-2a# 3-46 3~46 3-46# 3-46# 3-50 3-50 

3-50# 3--50# 3-96 3-96 3-96# 3~96# 3-104 3-104 3-104# 3-104# 3-109 3-109 3~109# 3-109# 



ti 



5--42# 5-45 5-45 5-45# 5-^5# 



ABORT 2 58 3-101 3-102 3-106 3-122# 5-44 6-27 

ANDFLO ? 63 2 •194# 

AREA P - 1 60# 

BELL 1 -40# 2 -eO# 2-201 

BIGEST .1 56# 

BLKFC 2^5 2-1 72# 6-11 6-21 6-25 

BUFSIZ 1 -n4# 

CHNBIT 1 53# 

CHNEXT 2 -234# 

CHNO 1 -e7# 3-17 3-17 3-21 3-21 3-28 3-28 3-46 3-46 3-50 3-50 3-96 3-96 3-104 

3-104 3-109 3-109 5-42 5-42 5-45 5-45 

CHNPPN 2 -67 2-234# 

CHRCNT 2-lGOff 10-26* 10-41* 

CINNRT 2-254« 

CINSPC ;^ 234# 

CISRTl ^^-o^ 2-276# 

CISRT2 2-&4 2-280# 

CISRTl 2 -:>4 2--272# 

COMPAR 2 !'B 2-142# 

CR i 3e*f 

CSPCOF i 65# 

CTRL 7 t ';.t# 

CUROFL 2-56 2-140# 5-11 

CURSAV 2 -;"i2 2-181# 

DBLKFC 1 35# 

DEFEXT c.^ -234fl 

DIVIDE 2-53 3-71 3-90 12-7# 

DSKCVT 2-61 3-23 5-41 6-10# 

ENDSAV 2-52 2-1 S2# 

EOFBUF 2 44 2-1 74# 

EOFCHR 2 43 2-1 92# 

EOFC OL 2 4 3 2 - 1 79« 

ERR 1 ^O* 3- -^6* 3-96* 3-104* 3-109* 5-42 5-42* 5-42* 5-42* 5-45* 5-45* 5-45* 

ERRLOC l-49# 3-46 3-96 3-104 3-109 5-42 5-45 

F*BIN 2 65 2 -94# 

F*CR 2 65 2-96# 

F*INPL 2 49 2-98# 3-43 

F*PAUS 2 65 2 -97# 3-32 

F*VLEN 2-65 2-95# 

FDl 2 -Slot 

FD2 2-24i# 3-17 3-104 6-17 

FD3 2 •242# 3 46 3-50 3-96 

FD4 2 ■•243if 3-21 3-24 3-28 3-109 6-24 

FDBSI2 2-240 2 -240# 2-241 2-241# 2-242 2-242# 2-243 2~243# 

FILES 2-,:^56# 

FILFL 2 -?8 2-168# 5-12 5-13* 

FILNB 2 59 2-1 19# 5-14* 

FILPPN 2-67 2 -234# 3-28 3-28 3-50 3-50 3-96 3-96 3-104 3-104 3-109 3-109 

FILRN ;^- -r-9 2-120# 

FILST -59 2-llS# 

FLBLK 2 'VS 2 ■171# 5-9 



SORTO RTS0R1 — ROOT MODULE MACRO V05. Olb Monday 06-Maii"S5 17; 4B Pagt> S-2 
Cross ref crcr.t. e tabic- (CREF VC)5. 03) 



FLDMAP 


P 64 


2 -]75# 








FLUSH 


'^ 57 


5 5# 








FSTIME 


r'-r^34# 










GTLN 


;^;--?34# 










HB*ARS 


.1 -7*l# 










HB*DFS 


i -72t> 










HB*DIP 


1 -7 5# 










HB*DUP 


1 -71# 










HB^RIU 


;t -76# 










HB*RS2 


.1 -73# 










HD**SZ 


1 tij.# 










HD*DEV 


} eo# 










IFPNT 


P-'rh 


2-173# 








INFLEN 


£' -44 


2 -157# 








INRLEN 


?-64 


2-178# 








ISMARS 


2--'4 i 


2-1 46# 








I TYPE 


? -'59 


2 -132# 








JSW 


1 -51# 


2-62 








KAD 


P-47 


2-125# 








KLEN 


P -47 


2-127# 








KSTRT 


r? -47 


2-126# 








KTYPE 


r 45 


2-124# 








KYBIN 


P-66 


7-34# 








KYCOMP 


2-r^4 


7-18# 








KYDATE 


i^-'-A^ 


10 -4# 








KYDIS 


»--oO 


9-4# 








KYLSS 


i::-66 


-4# 








KYTSS 


2--66 


3 -27# 








KYUCA 


?-44 


1 --26# 








LF 


1 37# 


2 -79# 


3-v37 






LOWMEM 


r' &6 


2-150# 








MAPEND 


^' -64 


2-176# 








MODE 


r' 40 


2-234# 








MSGNAM 


i- ■■ r.9 


2-143# 








MULTPY 


2-53 


3-69 


1 1 --8# 






MXFIL2 


2- 5a 


2-77# 








MXFILS 


2--:::7 


2"76# 


2-77 


2-118 


2-119 


MXKEYS 


2-7St 


2- 124 


2-125 


2-126 


2-127 


MXRECl 


2 4-2 


2 -3 53# 








MXREC2 


2 -42 


2-154# 








NOERR 


J -56# 










NUMBUF 


2 -5f> 


2"199# 








NUMCOL 


2-5f; 


2 -134# 








NUMKY2 


2 41 


2--144# 








NUMLEN 


2 55 


2-135# 








NXTBLK 


£ -48 


2-167# 


3-22 






OBFEND 


2 4S 


2-169# 


5-20* 


5-21 «■ 




OBUFl 


2 'V/ 


2--165# 


5-8 


5-ia 


5-19K- 


0BUF2 


2-17 


2-166# 


5-17 


5-1 8ii- 




0BUFS2 


2-45 


2"1&2# 


5-21 






OPNTMP 


3 47 


3-97 


3-104# 






ORFLC 


2 -A3 


2 •3 95# 








ORPOS 


2 4-3 


2-170# 


5-25« 






DTYPE 


2 49 


2-133# 


3-55 


3-62 


3-64 


OUTWRT 


2 57 


5-15 


5-39# 






DVLBIT 


1 -52# 


2-62 









2-120 



5-4 5 



3-66 3-77 3-79 3-81 



SORTO RTSDRT - ROOT HODUi.E MACRO VOf.>. 01 b Hondau 06 -Ha it -S;? 17:48 Fagi^ & -3 

CrohB refertn? t tabic iCREf V05. 03) 

i 
I 

4 

3-1091^ 

f 

€ 

4 
( 
t 
« 

4 

I 
4 
4 



OWCiMT 


a -45 


2 -161# 


5-45 


5-45 








POBASE 


r:''-10» 


2-62 












POTOP 


2 AP 


12 -26# 












PI TERM 


2-4S 
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